1 FORT=8448TO8455:POKET,0:NEXT
2 FORT=8192TO8271:READD:POKET,D:NEXTT
3 POKE53281,12
4 POKE53270,216
5 POKE53272,24
6 POKE53282,11
7 POKE53283,15
8 FORT=8576TO8655:READD:POKET,D:NEXT
9 PRINT"[147]"
10 PRINT"*************************************"
15 FORX=1TO5
20 PRINT"1@A    @A @A @A @A       @A    @A @A1"
21 PRINT"1                                   1"
25 PRINT"1@A @A @A    @A   @A @A        @A @A1"
26 PRINT"1                                   1"
30 NEXT
40 PRINT"BCDEFG";PS
50 PRINT"[145]";TAB(25);"BCEG";1
90 L=12:SF=0
100 PP=32:EP=32:PC=8:EC=9:PL=1854:EL=1476:SF=0
105 POKEPL,PC:POKEEL,EC:FORGG=1TO1500:NEXT
110 POKEPL,PP
111 FORP9=1TO(L*17)-51:NEXT
115 GETF$:IFF$<>""THENM$=F$
120 IFM$="A"THENPL=PL-40:IFPL<1064THENPL=PL+40
130 IFM$="Z"THENPL=PL+40:IFPL>1864THENPL=PL-40
140 IFM$="."THENPL=PL+1:IFPL>1864THENPL=PL-1
150 IFM$=","THENPL=PL-1:IFPL<1064THENPL=PL+1
160 PP=PEEK(PL):IFPP<>32THENGOSUB270
165 IFPP=9THENPS=PS+150:POKEEL,32:EF=1
170 POKEPL,PC:IFEF=1THENEF=0:GOTO400
180 POKEEL,EP
190 F=INT(RND(0)*8)+1:IFF<5THENM=F:GOTO195
191 IFF>4THENIFPEEK(EL+80)<>32THENM=2
192 IFF>4THENIFPEEK(EL+1)<>32THENM=3
193 IFF>4THENIFPEEK(EL-1)<>32THENM=4
194 IFF>4THENIFPEEK(EL-80)<>32THENM=1
195 IFF>2THENIFPEEK(EL-40)=8THENM=2
196 IFF>2THENIFPEEK(EL-1)=8THENM=3
197 IFF>2THENIFPEEK(EL+1)=8THENM=4
198 IFF>2THENIFPEEK(EL+40)=8THENM=1
200 IFM=1THENEL=EL-40:IFEL<1064THENEL=EL+40
210 IFM=2THENEL=EL+40:IFEL>1864THENEL=EL-40
220 IFM=3THENEL=EL+1:IFEL>1864THENEL=EL-40
230 IFM=4THENEL=EL-1:IFEL<1064THENEL=EL+40
240 EP=PEEK(EL):IFEP<>32THENGOSUB340
250 POKEEL,EC
260 GOTO110
270 IFPP=9THENPS=PS+150+(10*(13-L)):POKEEL,32:EF=1
271 IF(PEEK(PL+54272)AND(14))<>14THENPOKEPL+54272,14:PS=PS+10+(13-L):SF=SF-1
272 PP=32
275 IFM$="A"THENPL=PL-1
280 IFM$="Z"THENPL=PL+1
290 IFM$="."THENPL=PL+40
300 IFM$=","THENPL=PL-40
310 IFPP=9THENPS=PS+100:POKEEL,32:EF=1
320 PRINT"BCDEFG";PS
330 RETURN
340 IFEP=8THENPS=PS+100:POKEEL,32:EF=1
341 IF(PEEK(EL+54272)AND(15))<>2THENPOKEEL+54272,2:SF=SF+1:IFSP>50THEN400
342 EP=32
350 IFM=1THENEL=EL+40
360 IFM=2THENEL=EL-40
370 IFM=3THENEL=EL-1
380 IFM=4THENEL=EL+1
390 RETURN
400 US=PS-SF:POKE53281,1:POKE53280,0
410 FORTT=PSTOUSSTEP-1
415 PRINT"               "
420 PRINT"BCDEFG";TT
425 IFPS<0THEN460
426 NEXT:PS=US:POKE53280,12:POKE53281,12
427 PRINT"               "
428 PRINT"BCDEFG";PS
430 L=L-1:IFL<3THEN460
440 PRINT"[145]";TAB(25);"BCEG";(13-L)
450 POKEEL,32:POKEPL,32:GOTO100
460 POKE53281,1:GOTO470
465 POKE53281,INT(RND(0)*7)+7
470 FORTC=1TO2500
475 GETR$:IFR$="R"THENRUN
480 NEXT
490 GOTO465
900 DATA3,13,55,223,39,39,47,42,192,112,220,247,184,184,184,168
910 DATA84,84,64,84,84,4,84,84,20,84,64,64,64,64,84,20
915 DATA16,84,68,68,68,68,84,16
920 DATA80,84,68,68,80,84,68,68,20,84,64,80,80,64,84,20
930 DATA20,20,20,0,0,20,20,20
931 DATA20,20,85,170,170,85,20,20,192,192,192,192,255,255,255,255
935 DATA84,68,68,68,68,68,68,84
940 DATA4,4,4,4,4,4,4,4,84,84,4,84,84,64,84,84
950 DATA84,84,4,84,84,4,84,84,68,68,68,84,4,4,4,4,84,84,64,84
960 DATA4,4,4,84,84,64,64,84,68,68,68,84,84,4,4,4,4,4,4,4
970 DATA84,68,68,84,68,68,68,84,84,68,68,84,4,4,4,4